home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / JANUS.INC < prev    next >
Text File  |  2000-09-26  |  528b  |  30 lines
  1. %PS = 16384
  2. %A1 = %PS + 00
  3. %A2 = %PS + 02
  4. %A3 = %PS + 04
  5. %A4 = %PS + 06
  6. %A5 = %PS + 08
  7. %A6 = %PS + 10
  8.  
  9. function CheckInt(num) shared
  10.  reg %AX,(1*256)+num
  11.  call interrupt &H0b
  12.  jint.offset=REG(%DI)
  13.  jint.number=num
  14.  if jint.offset<>-1 then
  15.   CheckInt=1
  16.   jint.segment=REG(%ES)
  17.   def seg = jint.segment
  18.   jint.segment=peeki(22)
  19.  else
  20.   CheckInt=0
  21.  end if
  22. end function
  23.  
  24. sub CallAndWait shared
  25.  reg %AX,(7*256)+jint.number
  26.  call interrupt &H0b
  27.  reg %AX,(8*256)+jint.number
  28.  call interrupt &H0b
  29. end sub
  30.